home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Dealing with Change / Workplace Effectiveness: Dealing with Change.iso / pc / Assess.Dxr / Internal_5_rollover handlers.ls < prev    next >
Encoding:
Text File  |  1998-04-24  |  2.0 KB  |  80 lines
  1. global grollerList, balloonSprite
  2.  
  3. on setRollSpecs
  4.   set grollerList to [#sprites: [8, 9, 10, 11, 12, 13], #memNumbers: [the number of member "style 1", the number of member "style 2", the number of member "style 3", the number of member "style 4", the number of member "style 5", the number of member "style 6"]]
  5. end
  6.  
  7. on showMenuRolls
  8.   case 1 of
  9.     rollOver(3):
  10.       set thisName to "1A"
  11.       showBalloon(thisName)
  12.     rollOver(4):
  13.       set thisName to "1B"
  14.       showBalloon(thisName)
  15.     rollOver(5):
  16.       set thisName to "1C"
  17.       showBalloon(thisName)
  18.     rollOver(6):
  19.       set thisName to "1D"
  20.       showBalloon(thisName)
  21.     rollOver(7):
  22.       set thisName to "1E"
  23.       showBalloon(thisName)
  24.     otherwise:
  25.       set the loc of sprite balloonSprite to point(-4444, -4444)
  26.   end case
  27. end
  28.  
  29. on showBalloon artName
  30.   set the member of sprite balloonSprite to member (artName && "balloon")
  31.   set the loc of sprite balloonSprite to point(320, 240)
  32. end
  33.  
  34. on clearBalloon
  35.   set the loc of sprite balloonSprite to point(-4444, -4444)
  36. end
  37.  
  38. on showRoller thisSprite, artName
  39.   puppetSprite(thisSprite, 1)
  40.   set the member of sprite thisSprite to member (artName && "roll")
  41. end
  42.  
  43. on rollSound thisSprite, thisName
  44.   global gLastSounder
  45.   puppetSound(0)
  46.   if thisSprite <> gLastSounder then
  47.     puppetSound(thisName && "sound")
  48.     set gLastSounder to thisSprite
  49.   end if
  50. end
  51.  
  52. on rollerCheck vMouseCast
  53.   set rollTest to 0
  54.   set vMemList to getaProp(grollerList, #memNumbers)
  55.   if getOne(vMemList, vMouseCast) then
  56.     set rollTest to 1
  57.   end if
  58.   return rollTest
  59. end
  60.  
  61. on rollerCheck2 vMouseCast
  62.   set rollTest to 0
  63.   set rollList to getProp(grollerList, #sprites)
  64.   repeat with X in rollList
  65.     if vMouseCast = the memberNum of sprite X then
  66.       set rollTest to 1
  67.       set hotSprite to X
  68.       set thisName to the name of member vMouseCast
  69.       exit repeat
  70.     end if
  71.   end repeat
  72. end
  73.  
  74. on clearRollers
  75.   set vRollList to getaProp(grollerList, #sprites)
  76.   repeat with X in vRollList
  77.     puppetSprite(X, 0)
  78.   end repeat
  79. end
  80.